Voorbeeld van de functie UBound

Dit voorbeeld maakt gebruik van de functie UBound om het grootste beschikbare subscript voor de opgegeven dimensie van een matrix te bepalen.

Dim Upper
Dim MyArray(1 To 10, 5 To 15, 10 To 20)    ' Declare array variables.
Dim AnyArray(10)
Upper = UBound(MyArray, 1)    ' Returns 10.
Upper = UBound(MyArray, 3)    ' Returns 20.
Upper = UBound(AnyArray)    ' Returns 10.